[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd fcn
x real y (:) real f (:) real [f] = fcn(x,y) function [f] = fcn(x,y)